Set c = Sheets("Principale").Columns(ColNomLabNum).Find(NomLabo)
If c Is Nothing Then
Rows(3).Insert Shift:=xlDown
Sheets("Principale").Range(ColNomLab & 3).Value = NomLabo
Sheets("Principale").Range(ColMarque & 3).Value = Marque
Sheets("Principale").Range(ColRef & 3).Value = Ref
Sheets("Principale").Range(ColNomFab & 3).Value = NomFab
Sheets("Principale").Columns(ColNomLab).Sort Key1:=Range(ColNomLab & 3), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Else: MsgBox "L'instrument existe déjà!!!", vbCritical, titre
End If