Private Sub CommandButton2_Click()
Set cel = Range("A4:A9").Find([C2], LookIn:=xlValues, lookat:=xlWhole) 'cherche code
If Not cel Is Nothing Then
l = cel.Row
Cells(cel.Row, 2) = Range("E2") 'nouvelle valeur
If Not cel Is Nothing Then
l = cel.Row
Cells(cel.Row + 1, 2) = Range("E2") 'nouvelle valeur
If Not cel Is Nothing Then
l = cel.Row
Cells(cel.Row + 2, 2) = Range("E2") 'nouvelle valeur
If Not cel Is Nothing Then
l = cel.Row
Cells(cel.Row + 3, 2) = Range("E2") 'nouvelle valeur
If Not cel Is Nothing Then
l = cel.Row
Cells(cel.Row + 4, 2) = Range("E2") 'nouvelle valeur
If Not cel Is Nothing Then
l = cel.Row
Cells(cel.Row + 5, 2) = Range("E2") 'nouvelle valeur
End If
End If
End If
End If
End If
End If
End Sub