Bonjour,
Encore une fois je sollicite votre aide, je vous explique mon soucis
J'ai un fichier contenant 15 Colonne, je doit remplir la feuil 2 en fonction de la premiere selon une valeur de la cellule G je m’intéresse qu'a la colonne G de la feuil 15 ( La valeur de G soit Immo soit Charge) : si la valeur de celle Si ="immo" copier la cellule A, B,C dans les cellules A,B,C de la feuille 2 copier immo dans la colonne H, sinon copier la cellule A, B,C dans les cellules A,B,C de la feuille 2 copier Charge dans la colonne I,
i= 2 To Range("A65536")
For Each cellule_type In Range("G2:G65536")
'copier la plage de ligne A à F dans la nouvelle Feuil
Select Case cellule_type.Value
Case "Immo"
'copier la valeur de cellule G dans la cellule H
Case "Charge"
'copier la valeur de cellule G dans la cellule I
End Select
Next i
Jspr que j'ai bien expliqué mon soucis
Merci d'avance