Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim cellule As Range, colonne_ref As Long, colonne_a_completer As Long
colonne_ref = 2 ' ===>> remplece ce 2 par le numéro de ta colonne RENOV_LOURDE_DATE
colonne_a_completer = 1 ' ===>> remplace ce 1 par le numéro de ta colonne RENOV_LOURDE_ANNEE
For Each cellule In Columns(colonne_ref).SpecialCells(xlCellTypeConstants)
MsgBox "la colonne de référence contient " & cellule.Value & vbCrLf & _
"et celle à compléter contient " & Cells(cellule.Row, colonne_a_completer).Value
Next