msgbox lig
Set table = Range("A" & lig & ":T" & lig)[COLOR=#FF0000] c'est ici que ça me met l'erreur a propos de la variable range pourtant je n'ai que recopier[/COLOR]
If CheckBox1.Value = True Then
Sheets("Feuil1").Range("I" & lig).Interior.Color = vbBlue
For Each c In table
If c = "" Then c.Interior.Color = vbBlue
Next
End If