sdr33:
If Mid(Sheets("Import Brut").Cells(1, 1).Value, 8, 1) = 3 Then
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Données analisée"
Sheets("Données analisée").Activate
Sheets("Données analisée").Cells(1, 1).Value = "Nom étude"
Sheets("Données analisée").Cells(1, 2).Value = "Station"
Sheets("Données analisée").Cells(1, 3).Value = "Ht. station"
Sheets("Données analisée").Cells(1, 4).Value = "Points"
Sheets("Données analisée").Cells(1, 5).Value = "Ht. Canne"
Sheets("Données analisée").Cells(1, 6).Value = "Distance O."
Sheets("Données analisée").Cells(1, 7).Value = "Angle Hz"
Sheets("Données analisée").Cells(1, 8).Value = "Angle V"
Sheets("Données analisée").Cells(1, 9).Value = "CODE"
Sheets("Données analisée").Cells(1, 10).Value = "Xs"
Sheets("Données analisée").Cells(1, 11).Value = "Ys"
Sheets("Données analisée").Cells(1, 12).Value = "Zs"
Sheets("Données analisée").Cells(1, 13).Value = "Xp"
Sheets("Données analisée").Cells(1, 14).Value = "Yp"
Sheets("Données analisée").Cells(1, 15).Value = "Zp"