Private Sub CommandButton7_Click()
Dim TV() As Variant, Trouvé As Boolean, L As Long, C As Long
TV = Range("A1:W39").Value
For C = 1 To 22 Step 3
For L = 2 To 38 Step 2
Trouvé = TV(L, C) = ""
If Trouvé Then Exit For
Next L
If Trouvé Then Exit For
Next C
If Trouvé Then
CB2 = Cells(L, C).Address(False, False)
Else
MsgBox "Aucun emplacement libre"
End If