Private Sub CommandButton14_Click()
If Sheets("Feuil2").Range("technicien").Offset(-1) <> "" Then
' ajoute une ligne - la ligne s'insère au dessus
Application.EnableEvents = False ' pour ne pas se mordre la queue
Sheets("Feuil2").Range("technicien").EntireRow.Insert xlShiftDown
Application.EnableEvents = True
End If
End Sub