Re,
Avec l'activation de la feuille
Private Sub CommandButton24_Click()
Dim L As Integer
Sheets("PM").Activate
If MsgBox("Voulez-vous enregistrer?", vbYesNo, "") = vbYes Then
L = Sheets("PM").Range("A65536").End(xlUp).Row + 1
Range("A" & L).Value = Now
Range("B" & L).Value = ComboBox25
Range("C" & L).Value = ComboBox26
Range("D" & L).Value = TextBox79
Range("E" & L).Value = TextBox68
Range("F" & L).Value = TextBox62
Range("G" & L).Value = TextBox66
Range("H" & L).Value = TextBox63
Range("I" & L).Value = TextBox67
Range("J" & L).Value = TextBox69
Range("K" & L).Value = TextBox64
End If
End Sub