Private Sub CommandButton2_Click()
Dim dossier$, dat&, CT As Range, h&, lig&
dossier = [S2]
If dossier = "" Then MsgBox "Renseignez S2...": Exit Sub
dat = [T6]
Set CT = Range("C20", Range("C" & Rows.Count).End(xlUp))
If CT.Row < 20 Then Exit Sub
h = CT.Rows.Count
Application.ScreenUpdating = True
Application.DisplayAlerts = False
With Workbooks.Open(ThisWorkbook.Path & "\Suivi EVS test.xlsm") 'ouvre le fichier
With .Sheets("Heures CO - Chauffeurs").ListObjects(1).Range
lig = .Rows.Count + 1 '1ère ligne vide
.Cells(lig, 1).Resize(h) = dossier
.Cells(lig, 2).Resize(h) = dat
.Cells(lig, 2).Resize(h).NumberFormat = "dd/mm/yyyy"
.Cells(lig, 3).Resize(h) = CT.Value
If .Cells(2, 1) = "" Then .Rows(2).Delete xlUp 'si la 2ème est vide
End With
.Close True 'enregistre et ferme le fichier
End With
End Sub