Bonjour makahonu ,
Essayez :
Sub ValeurEtFormatDeGversH()
Application.ScreenUpdating = False
With Sheets("NOMMER")
.Range("Tableau4[NOM DYN]").Copy ' copier G
.Range("Tableau4[Pour export SAMFM]").PasteSpecial xlPasteValues ' coller valeurs
.Range("Tableau4[Pour export SAMFM]").PasteSpecial xlPasteFormats ' coller formats
Application.CutCopyMode = False
End With
End Sub
..