With Sheets("Données brutes")
'Cas n° 1 - Version 1 et Version 2 :
'Présence de "CLIENT" en "D9"
'Présence de "Marque/Modèle" cellule "A21"
If FichTemp.Sheets(1).[D9].Value = "CLIENT" _
And FichTemp.Sheets(1).[A21].Value <> "" Then
'nom du fichier
.Cells(2, Col).Value = Fichier.Value
'version (en fonction de la valeur D9 du classeur "FichTemp")
.Cells(3, Col).Value = IIf(FichTemp.Sheets(1).Range("D9").Value = "Client :", "Version 1", "Version 2")
'objet demande
.Cells(4, Col).Value = FichTemp.Sheets(1).Range("B3").Value
'date demande
.Cells(5, Col).Value = FichTemp.Sheets(1).Range("B4").Value
'client
.Cells(6, Col).Value = FichTemp.Sheets(1).Range("E9").Value
'demandeur
.Cells(7, Col).Value = FichTemp.Sheets(1).Range("B6").Value
'fonction service
.Cells(8, Col).Value = FichTemp.Sheets(1).Range("B9").Value
'domaine
.Cells(9, Col).Value = FichTemp.Sheets(1).Range("D18").Value
'environnement
.Cells(10, Col).Value = FichTemp.Sheets(1).Range("B12").Value
'nom
.Cells(11, Col).Value = FichTemp.Sheets(1).Range("B16").Value
'OS
.Cells(12, Col).Value = FichTemp.Sheets(1).Range("B18").Value
'CPU/Mem
'Marque/modèle
.Cells(14, Col).Value = FichTemp.Sheets(1).Range("B21").Value & "/" & FichTemp.Sheets(1).Range("C21").Value
'Cas n° 2 - Version 3 :
...........
................
.....................
End With