Bonjour, j'arrive pas à debug ceci qui est mon fichier test : 
	
	
	
	
	
		
J'obtiens une erreur au deuxième range avec une incompatibilité de type mais impossible de corriger ... Vous avez une idée ?
Merci !
	
		
			
		
		
	
				
			
		Code:
	
	
	Option Explicit
Function ISPAIR(Nb As Long) As Boolean
    ISPAIR = Nb Mod 2 = 0
    End Function
Sub Bouton1_Cliquer()
Dim i As Long
For i = 1 To 20 Step 1
    If ISPAIR(i) Then
        Range("A" & i + ":E" & i).Select
        Selection.Interior.Color = RGB(220, 230, 241)
    Else
        Range("A" & i + ":E" & i).Select
        Selection.Interior.Color = RGB(241, 245, 249)
    End If
Next
End Sub
	J'obtiens une erreur au deuxième range avec une incompatibilité de type mais impossible de corriger ... Vous avez une idée ?
Merci !
			
				Dernière édition: