J'ai tenu compte de votre remarque. J'ai modifié le code :
Range("Noms").End(xlDown).Select
ActiveCell.Offset(2, 9).Resize(2, 1).Select 'aller aux 2 cases Prov des 2 dernières lignes
Selection.Copy ' copier les formules F des 2 cases
ActiveCell(-1, 1).Resize(2, 1).Select ' aller aux 2 cases Prov au-dessus
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False ' coller les formules F sur ces 2 cases
et ... je n'ai pas eu d'erreur 2023 ??? .. un peu par hasard ??? Mais c'est bon !!.
Merci !!! .... même si je n'ai pas bien compris pourquoi !!