Je voudrais faire des champs réduits avec les chiffres ayant les mêmes bases
ci dessous macro incomplete
merci
ma macro incomplete
Sub Macro1()
Dim lig
Dim col
For col = 6 To 9
For lig = 5 To 210
If Cells(lig, col) = Cells(lig + 1, col) Then
Cells(lig, col + 6) = Cells(lig, col)
Else
For I = 1 To 1
Cells(lig, col + 10) = Cells(lig, col)
Next
End If
Next
Next
End Sub
