solution definitive (pour ma part)
Sub test1()
premiere = True
For l = 1 To 4 Step 1
For c = 1 To 4 Step 1
If IsNumeric(Cells(l, c)) And Cells(l, c).Interior.ColorIndex = xlNone And Not (IsEmpty(Cells(l, c))) Then
If premiere Then
Cells(l, c).Select
premiere = False
Else
Union(Selection, Cells(l, c)).Select
End If
End If
Next c
Next l
End Sub
il faut que tu changes les
For l = 1 To 4 Step 1
For c = 1 To 4 Step 1
a+