Private Sub cmdok_Click()
[SIZE=1] Dim Title As Long: Dim Normal as Long
Title = Range("o65536").End(xlUp).Row:Normal = Range("p65536").End(xlUp).Row
bloc = Sheet2.Range("q65536").End(xlUp).Row
If CB1.Value = "Ligne de type Sous-Titre" Then 'Bouton ok
Cells(Title, 1).EntireRow.Copy
Cells(Title, 1).EntireRow.Insert
Sheet1.Range("O" & Title) = ""
Form.Hide
Application.CutCopyMode = False
End If
If CB1.Value = "Ligne de type Normal" Then
Cells(Normal, 1).EntireRow.Copy
Cells(Title, 1).EntireRow.Insert
Sheet1.Range("p" & Title) = ""
Form.Hide
Application.CutCopyMode = False
End If
If CB1.Value = "Ligne de type Calcul" Then
Application.DisplayAlerts = False
Cells(Normal, 1).EntireRow.Copy
Cells(Title, 1).EntireRow.Insert
Sheet1.Range("p" & Title) = ""
With Worksheets("Flecalcul")[/SIZE]
'ces lignes plantent sur mon poste
[COLOR=Red] ' .Range("a" & bloc, "k" & bloc + 32).EntireRow.Copy
'.Range("a" & 1, "k" & 33).EntireRow.Insert
'.Range("a" & 1, "k" & 33).PasteSpecial Paste:=xlPasteAll[/COLOR]
[SIZE=1] .Cells(1, 1).NumberFormat = "general"
.Cells(1, 2).NumberFormat = "general"
.Cells(1, 3).NumberFormat = "general"
.Cells(1, 4).NumberFormat = "general"
.Range("q" & 1) = ""[/SIZE]
'avec ces modifs j'ai les bonnes valeurs
'mais pas par formules
[COLOR=Blue][B].Cells(1, 1).Formula = Sheets("soum").Cells(Title, 1)
.Cells(1, 2).Formula = Sheets("soum").Cells(Title, 2)
.Cells(1, 3).Formula = Sheets("soum").Cells(Title, 3)[/B][/COLOR]
.Cells(1, 4) = Sheet1.Cells(Title, 4)
[SIZE=1] End With
Cells(18, 9).FormulaR1C1 = "=Flecalcul!R[-17]C[1]"
Cells(18, 10).FormulaR1C1 = "=Flecalcul!R[-17]C[1]"
Form.Hide
End If[/SIZE]
End Sub