Sub SiActif()
Application.EnableEvents = False
Application.ScreenUpdating = False
'Gérard
Dim a, i
a = Array("isitelFacturation Nouveau", "isitelImmobRdV ImenNF", "isitelImmobRdV SondaNF", "isitelImmobRdV StephanieNF")
If Not ActiveWorkbook.Name Like a(0) & ".xl*" Then Exit Sub
'ActiveCell.Offset(0, 0).Resize(499, 1) = "" 'RAZ
On Error Resume Next
For i = 1 To UBound(a)
If [ci1] = "" Then 'SI 1er TRAITEMENT
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(3).Select
Else 'SI APRES 1er TRAITEMENT
ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("L4:L502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "b").End(xlUp)(4).Select
Else
ActiveSheet.Cells(Rows.Count, "b").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("Q4:Q502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "c").End(xlUp)(3).Select
Else
ActiveSheet.Cells(Rows.Count, "c").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("S4:S502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "d").End(xlUp)(3).Select
Else
ActiveSheet.Cells(Rows.Count, "d").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("V4:V502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "e").End(xlUp)(3).Select
Else
ActiveSheet.Cells(Rows.Count, "e").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("F4:F502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "f").End(xlUp)(4).Select
Else
ActiveSheet.Cells(Rows.Count, "f").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("C4:C502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "g").End(xlUp)(4).Select
Else
ActiveSheet.Cells(Rows.Count, "g").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("AD4:AD502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "h").End(xlUp)(4).Select
Else
ActiveSheet.Cells(Rows.Count, "h").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("AE4:AE502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "i").End(xlUp)(4).Select
Else
ActiveSheet.Cells(Rows.Count, "i").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("AF4:AF502").Value
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "j").End(xlUp)(4).Select
Else
ActiveSheet.Cells(Rows.Count, "j").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("AG4:AG502").Value
'ICI ICI ICI Ne prend pas les chiffres
If [ci1] = "" Then
ActiveSheet.Cells(Rows.Count, "m").End(xlUp)(4).Select
Else
ActiveSheet.Cells(Rows.Count, "m").End(xlUp)(2).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 1) = Workbooks(a(i)).Sheets("RendezVous").Range("AI4:AT502").Value
If [ci1] = "" Then
[z4:z3000].ClearContents
ActiveSheet.Cells(Rows.Count, "Z").End(xlUp)(3).Select
Else
ActiveSheet.Cells(Rows.Count, "AA").End(xlUp)(2).Select
ActiveCell.Offset(0, -1).Select
End If
ActiveCell.Offset(0, 0).Resize(499, 2) = Workbooks(a(i)).Sheets("RendezVous").Range("A4:B502").Value
Next
'Application.EnableEvents = True
'Application.ScreenUpdating = True
End Sub