Salut tout le monde,
comme ca peut être?
Sub Forme_Date_Heure_tampon()
Application.ScreenUpdating = False
Dim dt As String, hr As String
Dim ws3 As Worksheet
Set ws3 = Sheets("Tampon")
With ws3
For i = 7 To Sheets("Tampon").Range("A" & Rows.Count).End(xlUp).Row
If .Cells(i, 2) <> "" And .Cells(i, 3) <> "" Then
Cells(i, 1) = Cells(i, 2) + Cells(i, 3)
Cells(i, 1).NumberFormat = "dd/mm/yyyy hh:mm"
End If
Next i
End With
End Sub