Sub Copier()
Dim Nom As String
Dim feuille As Worksheet
Nom = Format(ThisWorkbook.Sheets("Feuil1").Range("C1"), "ddmmyy")
On Error Resume Next ' Si la feuille n'existe pas la ligne suivante levera un erreur
Set feuille = ThisWorkbook.Sheets(Nom)
On Error GoTo 0
If Not feuille Is Nothing Then
ThisWorkbook.Sheets("Collage").Range("G1").CurrentRegion.ClearContents
With feuille.Range("A1").CurrentRegion
ThisWorkbook.Sheets("Collage").Range("G1").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
MsgBox "Les données de la feuille '" & Nom & "' ont été copiées dans la feuille de collage", vbInformation, "Copier données"
Else
MsgBox "Exécution interrompue : " & vbCrLf & _
"La feuille '" & Nom & "' n'existe pas dans ce classeur!", vbExclamation, "Copier données"
End If
End Sub