Bonjour Double 00, Die,
Le terme ça marche pas , n'est pas très délimité, pourtant ce n'est pas loin du tout , ou bien l'on n'a rien compris au besoin
Juste une toute petite modification de la proposition de 00 en rouge:
Private Sub Workbook_SheetActivate(ByVal o As Object)
Application.ScreenUpdating = False
Select Case o.Name
Case "Famille", "Moisson", "Revenus"
Sheets("Coordonnées").Range("a:b").Copy o.Range("a1:b1")
o.Columns.AutoFit
End Select
End Sub
.