Salut Myta !
J'ai trouvé une solution, mais elle a un inconvénient, elle est limitée :
With Range(A1)
For i = 0 To 2 Step 2
For j = 0 To 2 Step 2
.Cells(j + 1, i + 1).Select
plage = plage & ActiveCell.Address(0, 0) & ","
Next j
Next i
End With
Range(Left(plage, Len(plage) - 1)).Select
End Sub
En fait, je ne sais pas pourquoi, mais si ma plage dépasse 75 cellules Sélectionnées, il y a Bug sur la ligne :
Range(Left(plage, Len(plage) - 1)).Select
Si tu as une idée.....!!!
Merci à toi et bonne journée.
@ +
Moa