Sub Macro()
Dim DerLig As Integer, NumLig As Integer, WCible As Worksheet, TabTmp, FeuilleExistante
With Worksheets("A")
'vérifie que la feuille à créer n'existe pas
FeuilleExistante = IsError(Evaluate("='" & .Range("T10") & "'!A1"))
If Not FeuilleExistante Then
MsgBox " impossible de poursuivre. La feuille " & .Range("T10") & " existe déjà"
Exit Sub
End If
'Création nouvelle feuille
Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = .Range("T10")
Set WCible = ActiveSheet
' Copie des données
DerLig = .Range("B" & Rows.Count).End(xlUp).Row
TabTmp = .Range("B25:B" & DerLig)
WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp
'copie des différentes cellules
WCible.Range("D2") = .Range("E14")
WCible.Range("E4") = .Range("E15")
'..... à compléter
End With
End Sub