erreur 1004, je ne comprend pas pourquoi
Pour la premiere colonne DP cela fonctionne parfaitement!
Mais pour la suivant la partie
" Set rng = .Cells(2, lCol1).Resize(.Cells(.Rows.Count, lCol1).End(xlUp).Row - 1) "
on me dit erreur 1004,
Set ws = Worksheets("Données")
Set ws2 = Worksheets("Fichier Synthèse")
strCol = "NouveauDP" 'à définir
With ws
With .Cells
Set r = .Find(what:=strCol, LookIn:=xlValues, lookat:=xlWhole)
If r Is Nothing Then Exit Sub
lCol = r.Column
End With
Set rng = .Cells(2, lCol).Resize(.Cells(.Rows.Count, lCol).End(xlUp).Row - 1)
End With
rng.Copy
Sheets("Fichier Synthèse").Select
Range("A3").Select
ActiveSheet.Paste
' Deuxième colonne
Sheets("Données").Select
strCol = "NouveauDAS" 'à définir
With ws
With .Cells
Set r = .Find(what:=strCol1, LookIn:=xlValues, lookat:=xlWhole)
If r Is Nothing Then Exit Sub
lCol1 = r.Column
End With
Set rng = .Cells(2, lCol1).Resize(.Cells(.Rows.Count, lCol1).End(xlUp).Row - 1)
End With
rng.Copy
Selection.Copy
Sheets("Fichier Synthèse").Select
Range("B3").Select
ActiveSheet.Paste