Rebonjour,
La solution proposée est parfaite. Pour info, voici le code corrigé grâce à vos conseils. Tout baigne !
Dim fichier As String
Dim feuille As String
Dim mois As String
Dim année As String
Dim menscum As String
Dim marque As String
mois = InputBox("entrez le mois")
année = InputBox("entrez l'année n-1")
menscum = InputBox("mensuel ou cumulé ?")
marque = InputBox("entrez la marque")
feuille = mois & " " & année & " " & menscum & " " & marque
MsgBox feuille
Dossier = "P:\Mes documents\rapports salaires\2009\"
fichier = "P:\Mes documents\rapports salaires\2009\rapport" & " " & marque & " " & "mois par mois 09 cumulé.xls"
fichier = "rapport" & " " & marque & " " & "mois par mois 09" & " " & menscum & ".xls"
MsgBox fichier
latotale = Dossier & "[" & fichier & "]" & feuille
ActiveCell.FormulaR1C1 = "='" & latotale & "'!R22C31"
ActiveCell.FormulaR1C1 = _
"=IF(RC5="""",(IF(ISNA(VLOOKUP(RC4, '" & latotale & "'!R1C4:R564C61,24,0)),0,VLOOKUP(RC4,'" & latotale & "'!R1C4:R564C48,24,0))),0)"
A+
Chevet