ok je comprend .
voici la macro qui appelle à l'enregistrement :
Sub Bouton164_QuandClic()
Dim ligne As Long
ligne = ThisWorkbook.Worksheets("Liste").Range("A65536").End(xlUp).Row + 1
If (Cells(4, 13) = Empty) Then MsgBox "Renseigner cellule : INITIALES OPERATEURS"
If (Cells(5, 13) = "Noter la référence du diaphragme fini") Or (Cells(5, 13) = Empty) Then MsgBox "Renseigner cellule : REFERENCE"
If (Cells(6, 13) = Empty) Then MsgBox "Renseigner cellule : TYPE DE PIECE TYPE"
If Sheets("PT").Cells(19, 13).Interior.Color = 3 Then MsgBox "Une valeur est non conforme"
saut1:
Call sauvegarde
End Sub
Voilà , la ligne en rouge est la seule qui ne fonctionne pas