Soir Bon
D'après ce que j'ai cru comprendre, sinon à adapter
Option Explicit
Sub Tst()
Dim iRow As Long, i As Long
iRow = Range("D65536" ).End(xlUp).Row
For i = 2 To iRow
If Application.CountA(Range("A" & i), Range("C" & i)) = 0 Then
Range("A" & (i - 1) & ":C" & (i - 1)).Copy Range("A" & i)
End If
Next i
End Sub
|
Message édité par kiki29 le 25-12-2007 à 20:46:09