Re : VBA Copie Plage taille variable
bonjour Sylvie
essaye ce code
Sub Plagecacopier()
Dim I As Long, L As Long
L = 0
Application.ScreenUpdating = False
Set cel = Cells.Find("récapitulatif")
If Not cel Is Nothing Then L = cel.Row + 2
If L > 0 Then
For I = 4 To Range("A3").End(xlDown).Row
If CStr(Cells(I, 1)) <> "005" Then
Range(Cells(I, 1), Cells(I, 2)).Copy
Cells(L, 1).PasteSpecial Paste:=xlPasteValues
Cells(I, 3).Copy
Cells(L, 3).Select
ActiveSheet.Paste Link:=True
L = L + 1
End If
Next I
End If
Application.ScreenUpdating = True
End Sub
à bientôt