Sub comparaison_identique()
Dim compteur1 As Long, compteur2 As Long
Dim chaine1 As String, chaine2 As String
For compteur1 = 5 To 16
chaine1 = Sheets("Feuil1").Range("A" & compteur1)
chaine2 = Sheets("Feuil1").Range("B" & compteur1)
'on peut, si on le désire, effacer ou non les anciens contenus de la colonne C
' passer la ligne suivante en commentaire ou non suivant le cas.
Sheets("Feuil1").Range("C" & compteur1) = ""
For compteur2 = 2 To 11
If chaine1 = Sheets("Feuil2").Range("A" & compteur2) And chaine2 = Sheets("Feuil2").Range("B" & compteur2) Then
Sheets("Feuil1").Range("C" & compteur1) = Sheets("Feuil2").Range("C" & compteur2)
Exit For
End If
Next compteur2
Next compteur1
End Sub