Private Sub CommandButton18_Click()
Dim Badge As String
Dim DateDebut As Date, DateFin As Date
Dim DerniereLigne As Integer
Dim Flag As Boolean
Dim TestPM As Variant
DateDebut = Range("B29").Value
DateFin = Now()
Badge = Range("A257").Value
Range("C257").Value = DateFin
'sauvegarde des donnees
Sheets("SuiviPM").Select
ActiveSheet.Range("A1").Select
Flag = True
For Each TestPM In Range("A2:A" & Range("A65536").End(xlUp).Row) 'test si pm deja presente
If TestPM.Value = PmEnCours Then
DerniereLigne = TestPM.Row
Flag = False
End If
Next
If Flag Then DerniereLigne = Range("A65536").End(xlUp).Row
Range("A" & DerniereLigne).Value = PmEnCours
Range("B" & DerniereLigne).Value = TypePm
Range("C" & DerniereLigne).Value = Badge
Range("D" & DerniereLigne).Value = DateDebut
Range("E" & DerniereLigne).Value = DateFin
Range("F" & DerniereLigne).Value = DateDiff(n, DateDebut, DateFin)
Range("G" & DerniereLigne).Value = UsureMeule
Range("H" & DerniereLigne).Value = BladeHeight
End Sub