copie valeur avec condition cellule pas vide

Ma demande est que la partie de macro que tu ma faite répond bien ,
il faut l'addapter de facon qu'elle se répète sur plusieur ligne (copie
valeur).
Ligne18 à38.
Merci encore

"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:LYNCc.40204$ri2.19160@charlie.risq.qc.ca...

Bonsoir Daniel,

Je n'ai pas compris ton dernier message...(ta demande)... je lasse la main
à l'équipe de jour !

Salutations!





"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:uXCz8rmWEHA.208@TK2MSFTNGP10.phx.gbl...

Salut michdenis
La ,ca fonctionne très bien.
Je veut l'intégrer a celle ci
Le début vérifie ci l'utilisateur na pas oublier d'entré un choix dans la
colonne "E"
et l'oblige a en entré une donné.

La deuxième partie copie les valeur dans l'autre feuille ("Base")
Peut tu me corrigre pour que cela s'exécute sur chacune des ligne (18à38)
????

Merci

ActiveSheet.Unprotect
Dim l As Long, c As Integer, oblig As Label
ActiveSheet.Unprotect
oblig:
For c = 2 To 3
For l = 18 To 37
If Cells(l, c).Value <> "" Then
If Cells(l, 5) = "" Then
Range("E" & l).Value = InputBox( _
"Il manque une PRIORITE en sur la ligne " _
& l - 17 & vbNewLine _
& " saisissez la maintenant" _
& " ci dessous", "PRIORITÉ est obligatoire", , "5000",
"2000")
GoTo oblig
End If
End If
Next l
Next c

'_____ta macro ___Sub CopierUnRange()______

Dim Rg As Range, Rg1 As Range
With Worksheets("Feuille_insp")
If .Range("E18") <> "" Then
Set Rg = .Range("B18:m18")
With Worksheets("Base")
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
Rg.Copy Rg1
Rg1.Resize(Rg.Rows.Count, Rg.Columns.Count) = Rg.Value
End With
End If
End With
Set Rg = Nothing: Set Rg1 = Nothing
Application.Run "'Insp_St-Hyacinthe.xls'!ReplaceFenêtre"
End Sub