1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim i As Integer, sh As Worksheet
For Each sh In Worksheets
With sh
If UCase(Left(.Name, 3) = "DDV") Then
.Range("AM5").Activate
While ActiveCell.Value <> Empty
LigneActive = ActiveCell.Row
If .Range("AM" & LigneActive).Value <> Empty And .Range("AL" & LigneActive).Value <> Empty Then
DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("L" & DerniereLigne).Value = .Range("AL" & LigneActive).Value
.Range("M" & DerniereLigne).Value = .Range("AM" & LigneActive).Value
.Range("N" & DerniereLigne).Value = .Range("AN" & LigneActive).Value
Else
.... |
Partager