Sub formattage()
RowCount = Cells(Cells.Rows.Count, "f").End(xlUp).Row
Range("F1:F4").Select
Selection.NumberFormat = "General"
Range("F5:F8").Select
Selection.NumberFormat = "$#,##0.00"
Range("F9:F" & RowCount).Select
Selection.NumberFormat = "General"
End Sub
Sub test()
Range("F5:F8").NumberFormat = "General"
For n = 5 To 8
If Range("F" & n) <> "" Then
Range("F" & n).NumberFormat = "$#,##0.00"
Exit For
End If
Next n
End Sub