EN pj, un fichier Test comportant des informations en colonne A et B
Je veux bon me positionner sur la ligne ou se trouve AA et BB et copier AA et BB sur toutes les lignes du dessous jusqu'a CC et DD et la je copie CC et DD jusque la ligne EE et FF etc..... jusque FIN ou la copie s'arrete
En esperant avoir ete clair, je vous remercie par avance pour votre aide.
Sub Duplik()
Dim Ligne As Long
Ligne = 2
Do While Range("A" & Ligne).Value <> "FIN"
If Range("A" & Ligne).Value = "" Then
Range("A" & Ligne, "B" & Ligne).Value = Range("A" & Ligne - 1, "B" & Ligne - 1).Value
End If
Ligne = Ligne + 1
Loop
End Sub