Salut tiny
cette macro te montre le principe:. complète avec les cellules manquantes de la feuille de saisie
Tu peux mettre le bouton sur n'importe quelle feuille.

Sub compiler()
Dim lig As Long

With Sheets(2)
    'on teste si c'est la 1° opération: B5 est il vide?
    If IsEmpty(.Range("B5")) Then
        lig = 5
    Else
        '1° ligne vide
        lig = .Range("B65536").End(xlUp).Row + 1
    End If
    'on tranfère les valeurs des cellules de la ligne B3 dans la 1° ligne vide
    .Range(.Cells(lig, 2), .Cells(lig, 17)) = .Range("B3:Q3").Value
End With

With Sheets(1)
'on nettoie la feuille de saisie à complèter avec les 13 cellules restantes (ne pas oublier les points devant range)
plage = Union(.Range("K7"), .Range("M12"), .Range("F13")).ClearContents
End With

MsgBox "les données ont été archivées en feuille2"
End Sub

Bonjour tiny, bonjour michel,

Ah, j'arrive avec un metro de retard... :-)
Voilà quand même ma réponse : tiny61.xls
Comme michel, je n'ai fait que qcq cellules...

Bonne journée à tous
eric

Merci à vous deux pour votre aide, je vais tester tout ça dans la journée et je vous tiens au jus !

C'est bien de savoir qu'il y a encore un peu de solidarité dans ce monde de rise ^^

CA A L'AIR DE MARCHER ! il me reste plus qu'à modifier un peu la macro pour que toutes mes cellules soient prises en compte et c'est bon, encore merci !!