Sub Bouton4_QuandClic()
Dim c As Range
Dim i As Byte
'ligne de controle pour s'assurer que la sélection fait bien 4 cellules
'et qu'elle commence bien en colonne C (3)
If Selection.Count <> 4 Or Selection(1).Column <> 3 Then Exit Sub
'avec la feuille 2
With Sheets('Feuil2')
'initialise la variable c (set c=)
'en recherchant (.find)
'dans la plage k2... (range('k2...)
'...jusqu'a la derniere cellule occupé (range('k65536').end(xlup).row
'la valeur de la cellule se trouvant 7 colonnes à droite de la premiere cellule de sélection (selection(1).offset(0,7))
Set c = .Range('k2:k' & .Range('k65536').End(xlUp).Row).Find(Selection(1).Offset(0, 7))
'si la variable C n'est pas vide alors....
If Not c Is Nothing Then
'on fait une boucle de 1 à 4 (parce que 4 cellules à remplir)
'pour i=1 jusqu'a 4
For i = 1 To 4
'la cellule(i) de la sélection = la cellule ligne (c.row), colonne(i+1)
Selection(i) = .Cells(c.Row, i + 1)
'prochain i
Next i
'fin de condition
End If
'fin de travail avec la feuille 2
End With
End Sub