Bonjour,
Juste pour vous dire que dans l'immédiat j'ai contourné le problème par l'adjonction d'un bouton et en écrivant mon code comme suit :
Sub MemForm()
Sheets('Vhs').Select
Call AppInact
Call ProInact
Range('A3:AV3').Select
Selection.Copy
Call MisFormMem
End Sub
Public Sub MisFormMem()
Dim derligne As Integer
Sheets('Vhs').Select
derligne = Sheets('Vhs').Range('a65536').End(xlUp).Row + 1
Range('a' & derligne & ':av' & derligne).Activate
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range('A1').Activate
Call SelectMois
Exit Sub
End Sub