Bonjour,
Afin que la lecture de ton code soit aisée, merci de le placer entre les balises prévues à cet effet. (bouton symbolisé pas un croisillon # dans l'éditeur)
Ensuite indiquer le n° de la ligne où l'erreur est signalée serait un plus.
Sans avoir examiné tout ton code, je vois déjà un problème ici
If Sheets1("B" & i).Value = x1 And Sheets1("C" & i).Value = x2 And Sheets1("D" & i).Value = x3 And Sheets1("E" & i).Value = x4 And Sheets1("F" & i).Value = x5 Then
Sheets1 n'est pas un Range
Attention aussi à cette ligne
Dim x1, x2, x3, x4, x5 As String
Seul x5 est un String, les autres sont de type Variant
La bonne syntaxe est
Dim x1 as String, x2 as String, etc...
Partager