Sub Valider()
Dim rng As Range, c As Range, ws As Worksheet, dl As Long
Application.ScreenUpdating = False
With Sheets("FORMULAIRE")
Set rng = .Range("A4:A" & .Range("A65000").End(xlUp).Row)
For Each c In rng
If c <> "" Then
On Error Resume Next
Set ws = Sheets(CStr(c))
On Error GoTo 0
If Not ws Is Nothing Then
With ws
dl = .Range("A65000").End(xlUp).Row + 1
.Range("A" & dl) = VBA.Now
.Range("B" & dl).Resize(1, 7).Value = c.Offset(, 1).Resize(1, 7).Value
End With
End If
Set ws = Nothing
End If
Next
End With
Application.ScreenUpdating = True
End Sub