Sub Bouton1_Clic()
Application.ScreenUpdating = False
' ci-dessous on efface le contenu des colonnes F, G & H
Range("F2:H" & Range("F65535").End(xlUp).Row + 1).ClearContents
'ensuite on recopie le contenu de la colonne A dans la colonne F
Range("A2:A" & Range("A65535").End(xlUp).Row).Select
Selection.Copy
Range("F2").Select
ActiveSheet.Paste
'ensuite on fait une boucle pour toutes les valeurs contenues en colonne A
For i = 2 To Range("A65535").End(xlUp).Row
' également une boucle pour toutes les cellules de la colonne C
For j = 2 To Range("C65535").End(xlUp).Row
' on teste si égalité entre les cellules
If Cells(j, 3) = Cells(i, 1) Then
' alors on met le contenu des colonnes B & C dans les colonnes G & H
Range("G" & i) = Cells(i, 2)
Range("H" & i) = Cells(j, 3)
End If
Next j
Next i
Application.CutCopyMode = False
[A1].Select
Application.ScreenUpdating = True
End Sub