Sub Validation()
Dim Fin As Long
Dim c As Range
Dim FullRange As Range
With Sheets("2. Relevé Equipem. Prise en ch.") 'dans la feuille....
Fin = .UsedRange.Rows.Count 'on récupère la dernière ligne utilisée de la feuille
Set FullRange = .Range("A4:AZ" & Fin) 'on set tout le tableau
End With
'on applique des filtres et on copie colle le résultat
With FullRange
.AutoFilter Field:=7, Criteria1:="<>" 'filtre sur la colonne G
'colonnes G:I vers E
.Columns(7).Resize(, 3).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("3. Création du planning").Range("E9")
'colonnes P:Q vers H
.Columns(26).Resize(, 2).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("3. Création du planning").Range("H9")
'Colonnes J vers t
.Columns(10).Resize(, 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("3. Création du planning").Range("t9")
'Colonnes R vers u
.Columns(28).Resize(, 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("3. Création du planning").Range("u9")
'Colonnes T vers AJ
.Columns(29).Resize(, 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("3. Création du planning").Range("AJ9")
End With
'Application.Calculation = xlManual
'Application.ScreenUpdating = False
'For Each c In [Aj9:Aj2000]
'c = c.Formula
'Next
'Application.Calculation = xlAutomatic
End Sub